home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2002 November / CD 1 / APC0211D1.ISO / workshop / prog / files / ActivePerl-5.6.1.633-MSWin32.msi / _9edf3ad5738f278223b6a2ef56e4629b < prev    next >
Encoding:
Text File  |  2002-05-30  |  433 b   |  23 lines
  1. package Tk::Photo;
  2.  
  3. use vars qw($VERSION);
  4. $VERSION = '3.014'; # $Id: //depot/Tk8/Photo/Photo.pm#14 $
  5.  
  6. use Tk qw($XS_VERSION);
  7.  
  8. use vars qw($VERSION);
  9. $VERSION = '3.014'; # $Id: //depot/Tk8/Photo/Photo.pm#14 $
  10.  
  11. use base  qw(Tk::Image);
  12.  
  13. Construct Tk::Image 'Photo';
  14.  
  15. bootstrap Tk::Photo;
  16.  
  17. sub Tk_image { 'photo' }
  18.  
  19. Tk::Methods('blank','copy','data','formats','get','put','read','redither','write');
  20.  
  21. 1;
  22. __END__
  23.